(deftemplate Marketing
    (slot zi)
    (slot nr)
    (slot vandute)
    )
(assert (Marketing(zi Luni)(nr 30)(vandute 20)))
(assert (Marketing(zi Marti)(nr 30)(vandute 20)))
(assert (Marketing(zi Miercuri)(nr 30)(vandute 10)))
(assert (Marketing(zi Joi)(nr 40)(vandute 50)))
(assert (Marketing(zi Vineri)(nr 40)(vandute 20)))
(assert (Marketing(zi Sambata)(nr 50)(vandute 10)))

(facts)
(run)

(printout t "--------------------------------------------" crlf)
(defrule r1
   (Marketing (zi ?n))
    (Marketing(zi ?n)(nr ?nr)( vandute ?v))
=>
    
	(printout t ?n " s-au comandat " ?nr " produse si s-au vandut " ?v " produse." crlf)
    )

(run)

(defrule r2
    (Marketing (zi ?n))
   
=>
	
    )

